home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / dsystem / load.bas < prev    next >
BASIC Source File  |  1993-11-30  |  7KB  |  241 lines
  1. 10000 DIM FIRST%(400)
  2. 10010 '
  3. 10020 LOAD@ "CS\CARMINE1.SAV",FIRST%
  4. 10030 GOSUB *ファースト
  5. 10040 OPEN "I",#1,"CS\CARMINE2.SAV"
  6. 10050 INPUT #1,NA$(1),NA$(2),NA$(3),NA$(4),NA$(5),NA$(6)
  7. 10060 CLOSE
  8. 10070 GOSUB *プロテクトチェッカ
  9. 10080 ERASE FIRST%
  10. 10090 IF ER=1 THEN *エラー
  11. 10100 ER=0
  12. 10110 LOADTRAP=1
  13. 10120 CHAIN "DRAW_FLS.BAS",,ALL
  14. 10130 '
  15. 10140 *ファースト
  16. 10150 '
  17. 10160 MHP(1)    =FIRST%(1)
  18. 10170 HP(1)     =FIRST%(2)
  19. 10180 MMP(1)    =FIRST%(3)
  20. 10190 MP(1)     =FIRST%(4)
  21. 10200 KIY(1)    =FIRST%(5)
  22. 10210 BIN(1)    =FIRST%(6)
  23. 10220 KIN(1)    =FIRST%(7)
  24. 10230 SEIM(1)   =FIRST%(8)
  25. 10240 TIR(1)    =FIRST%(9)
  26. 10250 SEIS(1)   =FIRST%(10)
  27. 10260 IID(1,1)  =FIRST%(11)
  28. 10270 IID(1,2)  =FIRST%(12)
  29. 10280 IID(1,3)  =FIRST%(13)
  30. 10290 IID(1,4)  =FIRST%(14)
  31. 10300 IID(1,5)  =FIRST%(15)
  32. 10310 IID(1,6)  =FIRST%(16)
  33. 10320 IID(1,7)  =FIRST%(17)
  34. 10330 IID(1,8)  =FIRST%(18)
  35. 10340 IID(1,9)  =FIRST%(19)
  36. 10350 IID(1,10) =FIRST%(20)
  37. 10360 IID(1,11) =FIRST%(21)
  38. 10370 IID(1,12) =FIRST%(22)
  39. 10380 AID(1)    =FIRST%(23)
  40. 10390 KIYEXP(1) =FIRST%(24)
  41. 10400 BINEXP(1) =FIRST%(25)
  42. 10410 KINEXP(1) =FIRST%(26)
  43. 10420 SEIMEXP(1)=FIRST%(27)
  44. 10430 MHPEXP(1) =FIRST%(28)
  45. 10440 DEAD(1)   =FIRST%(29)
  46. 10450 '
  47. 10460 MHP(2)    =FIRST%(51)
  48. 10470 HP(2)     =FIRST%(52)
  49. 10480 MMP(2)    =FIRST%(53)
  50. 10490 MP(2)     =FIRST%(54)
  51. 10500 KIY(2)    =FIRST%(55)
  52. 10510 BIN(2)    =FIRST%(56)
  53. 10520 KIN(2)    =FIRST%(57)
  54. 10530 SEIM(2)   =FIRST%(58)
  55. 10540 TIR(2)    =FIRST%(59)
  56. 10550 SEIS(2)   =FIRST%(60)
  57. 10560 IID(2,1)  =FIRST%(61)
  58. 10570 IID(2,2)  =FIRST%(62)
  59. 10580 IID(2,3)  =FIRST%(63)
  60. 10590 IID(2,4)  =FIRST%(64)
  61. 10600 IID(2,5)  =FIRST%(65)
  62. 10610 IID(2,6)  =FIRST%(66)
  63. 10620 IID(2,7)  =FIRST%(67)
  64. 10630 IID(2,8)  =FIRST%(68)
  65. 10640 IID(2,9)  =FIRST%(69)
  66. 10650 IID(2,10) =FIRST%(70)
  67. 10660 IID(2,11) =FIRST%(71)
  68. 10670 IID(2,12) =FIRST%(72)
  69. 10680 AID(2)    =FIRST%(73)
  70. 10690 KIYEXP(2) =FIRST%(74)
  71. 10700 BINEXP(2) =FIRST%(75)
  72. 10710 KINEXP(2) =FIRST%(76)
  73. 10720 SEIMEXP(2)=FIRST%(77)
  74. 10730 MHPEXP(2) =FIRST%(78)
  75. 10740 DEAD(2)   =FIRST%(79)
  76. 10750 '
  77. 10760 MHP(3)    =FIRST%(101)
  78. 10770 HP(3)     =FIRST%(102)
  79. 10780 MMP(3)    =FIRST%(103)
  80. 10790 MP(3)     =FIRST%(104)
  81. 10800 KIY(3)    =FIRST%(105)
  82. 10810 BIN(3)    =FIRST%(106)
  83. 10820 KIN(3)    =FIRST%(107)
  84. 10830 SEIM(3)   =FIRST%(108)
  85. 10840 TIR(3)    =FIRST%(109)
  86. 10850 SEIS(3)   =FIRST%(110)
  87. 10860 IID(3,1)  =FIRST%(111)
  88. 10870 IID(3,2)  =FIRST%(112)
  89. 10880 IID(3,3)  =FIRST%(113)
  90. 10890 IID(3,4)  =FIRST%(114)
  91. 10900 IID(3,5)  =FIRST%(115)
  92. 10910 IID(3,6)  =FIRST%(116)
  93. 10920 IID(3,7)  =FIRST%(117)
  94. 10930 IID(3,8)  =FIRST%(118)
  95. 10940 IID(3,9)  =FIRST%(119)
  96. 10950 IID(3,10) =FIRST%(120)
  97. 10960 IID(3,11) =FIRST%(121)
  98. 10970 IID(3,12) =FIRST%(122)
  99. 10980 AID(3)    =FIRST%(123)
  100. 10990 KIYEXP(3) =FIRST%(124)
  101. 11000 BINEXP(3) =FIRST%(125)
  102. 11010 KINEXP(3) =FIRST%(126)
  103. 11020 SEIMEXP(3)=FIRST%(127)
  104. 11030 MHPEXP(3) =FIRST%(128)
  105. 11040 DEAD(3)   =FIRST%(129)
  106. 11050 '
  107. 11060 MHP(4)    =FIRST%(151)
  108. 11070 HP(4)     =FIRST%(152)
  109. 11080 MMP(4)    =FIRST%(153)
  110. 11090 MP(4)     =FIRST%(154)
  111. 11100 KIY(4)    =FIRST%(155)
  112. 11110 BIN(4)    =FIRST%(156)
  113. 11120 KIN(4)    =FIRST%(157)
  114. 11130 SEIM(4)   =FIRST%(158)
  115. 11140 TIR(4)    =FIRST%(159)
  116. 11150 SEIS(4)   =FIRST%(160)
  117. 11160 IID(4,1)  =FIRST%(161)
  118. 11170 IID(4,2)  =FIRST%(162)
  119. 11180 IID(4,3)  =FIRST%(163)
  120. 11190 IID(4,4)  =FIRST%(164)
  121. 11200 IID(4,5)  =FIRST%(165)
  122. 11210 IID(4,6)  =FIRST%(166)
  123. 11220 IID(4,7)  =FIRST%(167)
  124. 11230 IID(4,8)  =FIRST%(168)
  125. 11240 IID(4,9)  =FIRST%(169)
  126. 11250 IID(4,10) =FIRST%(170)
  127. 11260 IID(4,11) =FIRST%(171)
  128. 11270 IID(4,12) =FIRST%(172)
  129. 11280 AID(4)    =FIRST%(173)
  130. 11290 KIYEXP(4) =FIRST%(174)
  131. 11300 BINEXP(4) =FIRST%(175)
  132. 11310 KINEXP(4) =FIRST%(176)
  133. 11320 SEIMEXP(4)=FIRST%(177)
  134. 11330 MHPEXP(4) =FIRST%(178)
  135. 11340 DEAD(4)   =FIRST%(179)
  136. 11350 '
  137. 11360 MHP(5)    =FIRST%(201)
  138. 11370 HP(5)     =FIRST%(202)
  139. 11380 MMP(5)    =FIRST%(203)
  140. 11390 MP(5)     =FIRST%(204)
  141. 11400 KIY(5)    =FIRST%(205)
  142. 11410 BIN(5)    =FIRST%(206)
  143. 11420 KIN(5)    =FIRST%(207)
  144. 11430 SEIM(5)   =FIRST%(208)
  145. 11440 TIR(5)    =FIRST%(209)
  146. 11450 SEIS(5)   =FIRST%(210)
  147. 11460 IID(5,1)  =FIRST%(211)
  148. 11470 IID(5,2)  =FIRST%(212)
  149. 11480 IID(5,3)  =FIRST%(213)
  150. 11490 IID(5,4)  =FIRST%(214)
  151. 11500 IID(5,5)  =FIRST%(215)
  152. 11510 IID(5,6)  =FIRST%(216)
  153. 11520 IID(5,7)  =FIRST%(217)
  154. 11530 IID(5,8)  =FIRST%(218)
  155. 11540 IID(5,9)  =FIRST%(219)
  156. 11550 IID(5,10) =FIRST%(220)
  157. 11560 IID(5,11) =FIRST%(221)
  158. 11570 IID(5,12) =FIRST%(222)
  159. 11580 AID(5)    =FIRST%(223)
  160. 11590 KIYEXP(5) =FIRST%(224)
  161. 11600 BINEXP(5) =FIRST%(225)
  162. 11610 KINEXP(5) =FIRST%(226)
  163. 11620 SEIMEXP(5)=FIRST%(227)
  164. 11630 MHPEXP(5) =FIRST%(228)
  165. 11640 DEAD(5)   =FIRST%(229)
  166. 11650 '
  167. 11660 MHP(6)    =FIRST%(251)
  168. 11670 HP(6)     =FIRST%(252)
  169. 11680 MMP(6)    =FIRST%(253)
  170. 11690 MP(6)     =FIRST%(254)
  171. 11700 KIY(6)    =FIRST%(255)
  172. 11710 BIN(6)    =FIRST%(256)
  173. 11720 KIN(6)    =FIRST%(257)
  174. 11730 SEIM(6)   =FIRST%(258)
  175. 11740 TIR(6)    =FIRST%(259)
  176. 11750 SEIS(6)   =FIRST%(260)
  177. 11760 IID(6,1)  =FIRST%(261)
  178. 11770 IID(6,2)  =FIRST%(262)
  179. 11780 IID(6,3)  =FIRST%(263)
  180. 11790 IID(6,4)  =FIRST%(264)
  181. 11800 IID(6,5)  =FIRST%(265)
  182. 11810 IID(6,6)  =FIRST%(266)
  183. 11820 IID(6,7)  =FIRST%(267)
  184. 11830 IID(6,8)  =FIRST%(268)
  185. 11840 IID(6,9)  =FIRST%(269)
  186. 11850 IID(6,10) =FIRST%(270)
  187. 11860 IID(6,11) =FIRST%(271)
  188. 11870 IID(6,12) =FIRST%(272)
  189. 11880 AID(6)    =FIRST%(273)
  190. 11890 KIYEXP(6) =FIRST%(274)
  191. 11900 BINEXP(6) =FIRST%(275)
  192. 11910 KINEXP(6) =FIRST%(276)
  193. 11920 SEIMEXP(6)=FIRST%(277)
  194. 11930 MHPEXP(6) =FIRST%(278)
  195. 11940 DEAD(6)   =FIRST%(279)
  196. 11950 '
  197. 11960 FL        =FIRST%(300)
  198. 11970 X         =FIRST%(301)
  199. 11980 Y         =FIRST%(302)
  200. 11990 H         =FIRST%(303)
  201. 12000 WA        =FIRST%(304)
  202. 12010 ENCMAX    =FIRST%(305)
  203. 12020 MESSEGE_WA=FIRST%(306)
  204. 12030 '
  205. 12040 PROTECT1  =FIRST%(350)
  206. 12050 PROTECT2  =FIRST%(351)
  207. 12060 PROTECT3  =FIRST%(352)
  208. 12070 PROTECT4  =FIRST%(353)
  209. 12080 PROTECT5  =FIRST%(354)
  210. 12090 PROTECT6  =FIRST%(355)
  211. 12100 PROTECT7  =FIRST%(356)
  212. 12110 PROTECT8  =FIRST%(357)
  213. 12120 PROTECT9  =FIRST%(358)
  214. 12130 PROTECT10 =FIRST%(359)
  215. 12140 '
  216. 12150 RETURN
  217. 12160 ''
  218. 12170 '
  219. 12180 *プロテクトチェッカ
  220. 12190 '
  221. 12200 ER=0
  222. 12210 IF ASC(NA$(3))*ASC(NA$(4))<>PROTECT1  THEN ER=1
  223. 12220 IF ASC(NA$(6))+ASC(NA$(2))<>PROTECT2  THEN ER=1
  224. 12230 IF ASC(NA$(2))+ASC(NA$(6))<>PROTECT3  THEN ER=1
  225. 12240 IF ASC(NA$(4))+ASC(NA$(5))<>PROTECT4  THEN ER=1
  226. 12250 IF ASC(NA$(1))+ASC(NA$(6))<>PROTECT5  THEN ER=1
  227. 12260 IF ASC(NA$(5))*ASC(NA$(3))<>PROTECT6  THEN ER=1
  228. 12270 IF ASC(NA$(2))+ASC(NA$(1))<>PROTECT7  THEN ER=1
  229. 12280 IF ASC(NA$(5))+ASC(NA$(5))<>PROTECT8  THEN ER=1
  230. 12290 IF ASC(NA$(1))*ASC(NA$(2))<>PROTECT9  THEN ER=1
  231. 12300 IF ASC(NA$(3))*ASC(NA$(1))<>PROTECT10 THEN ER=1
  232. 12310 RETURN
  233. 12320 ''
  234. 12330 '
  235. 12340 *エラー
  236. 12350 '
  237. 12360 BEEP
  238. 12370 SYMBOL (5,5),"警告  セーブデータに異常  緊急停止作業中",FBAI,FBAI
  239. 12380 WAIT 100
  240. 12390 END
  241.